unit uDefine;

interface

uses
  Windows,
  uDZSysUtils,
  uDZLinkList;

type
  TAutoLocMobile = class(TDzDblLinkListNode)
  public
    //_type: Integer;
    //ID: Integer;
    //UserID: Integer;
    Phone: AnsiString;
    AreaCode: Integer;
    CityCode: Integer;
    ErrCode: Integer;
    AreaName: WideString;
    State: Integer;
    //FaHuoShouJi: string;
    //ShouHuoShouJi: string;
    //sms: string;
  end;
  PAutoLocMobile = ^TAutoLocMobile;

var
  hSemphore: THandle;
  Pending: TDzDblLinkList;
  Completed: TDzDblLinkList;
  NeedToLocate: Integer;
  Located: Integer;
  LocateError: Integer;
  Locating: Integer;

implementation

initialization
  Pending := TDzDblLinkList.Create(TAutoLocMobile, lmStack, True);
  Completed := TDzDblLinkList.Create(TAutoLocMobile, lmStack, True);
  hSemphore := CreateSemaphore(nil, 0, $7FFFFFFF, nil);

finalization
  Pending.Free;
  Completed.Free;
  CloseHandle(hSemphore);

end.
